home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AOL File Library: 2,801 to 2,900
/
aol-file-protocol-4400-2801-to-2900.zip
/
AOLDLs
/
TAWUG
/
TAWUG Disk No. 69 (SHK)
/
TAWUG69.shk
/
ULTRAMACROS
(
.txt
)
< prev
Wrap
AppleWorks Document
|
1988-05-01
|
16KB
|
265 lines
O===============================================================================
LFor UltraMacro users here are some macros. The macros are for use mainly in N
Lthe wordprocessor. If you have an Hard Drive try item #6 from the Menu also
sa-b.
To use the Menu;
1. Compile this file.'
2. Remove all files from the desktop.C
3. Set up a file named "Menu" or whatever, with LM at 0, RM at 0.
4. Press BA-M
JIf you want to use this Menu on startup of Appleworks type oa-esc, choose M
KMacro Options, choose item 3, answer "yes" to the only question. Next time I
you start up, the file "Menu" will be set up and the macros activated.O
-----------------------------------------------------------------------------
A way to organize your macros.
******* FILE INDEX ******B
Marker # Macros or Execution (use sa-M to find)P
=============================================================================
| 1 | Main Menu
| 2 | Business Menu
| 3 | Personal Menu -
| 4 | General use macros (start of)
| 5 | Future
| 6 | SA- Macros!
| 7 | SA-Control macros
| 8 | BA- Macros"
| 9 | BA- Control macros&
| 10 | Other character macrosO
=============================================================================
Start
M:<awp><oa-f>M<input : rtn : rtn : oa-z>! find pre set marker
Set a marker at the start of each macro section. (for use with system above)
EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE
A MENU PROGRAM WITH ALL SORTS OF GOODIES,
------------------------------------------.
This Menu system needs a file on the desktop
>>>>>>>Set up file for menu at start up only<<<<<<<L
JThis macro is set up to be used at start up only. It sets up a file named I
G"Menu" as the first file on the desktop. The first three rtn's are to M
Keliminate "Press Space Bar" "date" ect. The patch to Appleworks to do this O
Mseems to interferer with UltraMacros. It could easily be other patches to my
copy of Appleworks.D
B<ba-<>:<awp : rtn : rtn : rtn>3<rtn : rtn>Menu<rtn : oa-t>R<esc : M
Koa-o>lm<rtn>0<rtn>rm<rtn>0<rtn : esc : rtn : goto ba-=>! Use ba-M to get ,
menu once the file "Menu" has been set up.
For use to set up the menu system only ONCEE
C<ba->>:<awp : oa-q : esc : rtn>3<rtn : rtn>Menu<rtn : oa-t>R<esc : M
Koa-o>lm<rtn>0<rtn>rm<rtn>0<rtn : esc : rtn : goto ba-=>! Use ba-M to get ,
menu once the file "Menu" has been set up.
{ clear menu area }N
L<ba-*>:<all><$0 = "Menu" : oa-q : find : rtn : oa-1 : oa-down : up : oa-y : P
Ndel : del : up : oa-y : del : up : oa-y : del : up : oa-y : del : up : oa-y : P
Ndel : up : oa-y : del : up : oa-y : del : up : oa-y : del : up : oa-y : del : N
Ldown : down : down : down : down : down : down : down : down : down : del : 1
del : del : del : del : del : del : del : del>!
<ba-^>:<awp : { print menu to screen routine },
rtn : print " 1. " : print $1 : rtn :,
rtn : print " 2. " : print $2 : rtn :,
rtn : print " 3. " : print $3 : rtn :,
rtn : print " 4. " : print $4 : rtn :,
rtn : print " 5. " : print $5 : rtn :,
rtn : print " 6. " : print $6 : rtn :,
rtn : print " 7. " : print $7 : rtn :
rtn : rtn :K
print " M)AIN ****** B)USINESS ****** P)ERSONAL: ___">-
<left : left : insert : oa-e>!
<ba-->:<all :O
M msg ' Press BA-M/Main BA-B/Business BA-P/Personal
=============================================================================+
Main Menu Code>
-------------------------------------------------
Print Main Menu Selections on Screen"
<ba-m>:<all : ba-* : goto ba-=>!
<ba-=>:<awp>6
<print " * MAIN MENU *" : rtn :
$1 = "Catalog Disk " :!
$2 = "Change Sub Directory " :#
$3 = "Change Drive, Get Files" :
$4 = "FileMaster " :
$5 = "Change Printer Info " :+
$6 = "Backup Files in a Dir To Floppy" :Q
O $7 = "Another UM Task File" : ba-^ : goto ba-&>! %
"
<ba-&>:<awp : begin : c = key : 3
{ Get a keystroke Main Menu only }I
if c = 49 then sa-c : ba-m : stop : else : { catalog, return to Menu}N
L if c = 50 then oa-esc>1<rtn : rtn : oa-rtn : msg ' -- YOU CAN SELECT, ADD, Q
OOR DROP A TOTAL OF 4 TIMES -- ' : ba-| : {1st choice} Q
Omsg ' -------------THREE LEFT-------------- ' : ba-| : {2nd choice} Q
Omsg ' ---------------TWO LEFT-------------- ' : ba-| : {3rd choice} I
msg ' ---------------ONE LEFT-------------- ' : ba-| : {4th choice}L
J oa-q>4<oa-rtn : ba-m : stop : else :{crude but it does work if you don't "
have path finder by Randy Brant}M
K if c = 51 then oa-q : esc : rtn>2<rtn : input : rtn : rtn : input : rtn : =
oa-q : stop : else : {change drive}.
if c = 52 then oa-esc>1<rtn : stop : else :O
M if c = 53 then oa-q : esc>5<rtn>7<rtn>4<rtn : stop : else : {change printer
info}+
if c = 54 then goto ba-% : stop : else :M
K if c = 55 then oa-esc>3<rtn : rtn><$0 = "Your.Name" : find : rtn : ba-s : 2
stop : else : { get another task file}0
{ select other menus }@
if c = 98 then goto ba-b : stop : else : { business menu }@
if c = 112 then goto ba-p : stop : else : { personal menu }K
I if c = 27 then stop : else :{ exit } bell rpt>! illegal key so beep and
repeat the keyin section
Support MacrosL
J<ba-|>:<all : input : rtn : input : rtn : oa-q : rtn : oa-rtn>! used by
item 2 above
LA method to backup from Hard Drive to floppy, set the floppy up the same as K
Ithe Hard Drive except the volume name must be different (study the macro N
Lbelow). The macro will save all "unsaved" files in a directory. It uses the F
Prodos backup bit. Must have FileMaster by good old Beagle Brothers.L
J<ba-%>:<all : oa-q : esc : msg ' DOUBLE CHECK THE DIRECTORY! ++++++ M
KCtrl-@ if Not / Return to Cont ' : input : oa-esc>1<rtn : rtn>2<rtn : L
Jrtn : up : rtn : insert : oa-e>/Da1<rtn>y<rtn : onerr goto ba-? : begin : P
Noa-r>cv<right : oa-rtn : rtn>2<rtn : rtn : rtn>y<rtn : rpt>! { used by item 6
above }
N<ba-?>:<all : oa-q>4<rtn : oa-q>1<rtn : msg ' ALL FILES EITHER SAVED, ABORTED P
N** OR ** NONE TO SAVE ** ANY KEY TO CONTINUE ' : key : goto ba-m>! used I
by ba-% above (Experience will teach you which of the three is true)
End of Main Menu CodeL
==========================================================================
Busi Menu Code>
-------------------------------------------------
Print Main Menu Selections on Screen"
<ba-b>:<all : ba-* : goto ba-+>!
<ba-+>:<awp>5
<print " * BUSINESS MENU *": rtn :@
$1 = "Contracts / Billing" : {menu options }
$2 = "Estimates" :
$3 = "Letters" :
$4 = "Customer Database" :
$5 = "Miscellaneous" :-
$6 = "Data Base of info, procedures ect" :8
$7 = "Backup File dir to floppy" : ba-^ : goto ba-\>!
<ba-\>:<awp : begin : c = key :3
{ Get a keystroke Busi Menu only }6
4 if c = 49 then oa-q : esc : rtn>2<rtn : up : rtn : N
Loa-y>/HD1/BUISNESS/ESTIMATE<rtn : rtn : input : rtn : stop : else :
{set path for estimates}6
4 if c = 50 then oa-q : esc : rtn>2<rtn : up : rtn : M
Koa-y>HD1/BUISNESS/CONTRACTS<rtn : rtn : input : rtn : stop : else :
{set path for contracts}6
4 if c = 51 then oa-q : esc : rtn>2<rtn : up : rtn : L
Joa-y>/HD1/BUISNESS/LETTERS<rtn : rtn : input : rtn : stop : else :
{set path for letters}5
3 if c = 52 then oa-q : esc : rtn>2<rtn : up><rtn : M
Koa-y>/HD1/BUISNESS/CUSTOMER<rtn : rtn : input : rtn : stop : else :
{set path for customer}6
4 if c = 53 then oa-q : esc : rtn>2<rtn : up : rtn : Q
Ooa-y>/HD1/BUISNESS/MISC<rtn : rtn : input : rtn : stop : else : #
{set path for misc}6
4 if c = 54 then oa-q : esc : rtn>2<rtn : up : rtn : Q
Ooa-y>/HD1/BUISNESS/DATABASE<rtn : rtn : input : rtn : stop : else : '
{set path for database}J
H if c = 55 then goto ba-% : stop : else : {backup all files in dir with
filemaster} $
{ select other menus }<
if c = 109 then goto ba-m : stop : else : { main menu }@
if c = 112 then goto ba-p : stop : else : { personal menu }(
if c = 27 then stop : else : { exit }B
bell rpt>! illegal key so beep and repeat the keyin section
End of Busi Menu CodeL
==========================================================================
Personal Menu Code>
-------------------------------------------------
Print Main Menu Selections on Screen'
<ba-p>:<all : ba-* : goto ba-ctrl-v>!
<ba-ctrl-v>:<awp>5
<print " * PERSONAL MENU *": rtn :/
$1 = "Letters Computer" : {menu options }
$2 = "Letters Personal" :
$3 = "Letters Misc" :
$4 = "Database" :
$5 = "Future Item" :
$6 = "Future Item" :,
$7 = "Miscellaneous" : ba-^ : goto ba-!>!
<ba-!>:<awp : begin : c = key :3
{ Get a keystroke Main Menu only }O
M if c = 49 then esc><rtn>2<rtn><up : rtn : oa-y>/Hd1/PERSONAL/LETTER/C<rtn : M
rtn : input : rtn : oa-q : stop : else {set path for letters computer}O
M if c = 50 then esc><rtn>2<rtn><up><rtn><oa-y>Hd1/PERSONAL/LETTER/P<rtn><rtn N
: input : rtn : oa-q : stop : else : {set path for letters personal}P
N if c = 51 then esc><rtn>2<rtn : up : rtn : oa-y>/Hd1/PERSONAL/LETTER/M/<rtn: J
rtn : input : rtn : oa-q : stop : else : {set path for letters misc}O
M if c = 52 then esc : rtn>2<rtn : up : rtn : oa-y>/Hd1/PERSONAL/DATABASE<rtn M
: rtn : input : rtn : oa-q : stop : else : {set path for Database items},
if c = 53 then print "5" : stop : else :+
if c = 54 then print "6" : stop : else :M
K if c = 55 then esc : rtn>2<rtn : up : rtn : oa-y>/Hd1/PERSONAL/MISC<rtn : M
rtn : input : rtn : oa-q : stop : else : {set path for Miscellaneous items})
{ select other menus }@
if c = 98 then goto ba-b : stop : else : { busuness menu }<
if c = 109 then goto ba-m : stop : else : { main menu }(
if c = 27 then stop : else : { exit }B
bell rpt>! illegal key so beep and repeat the keyin section
End of Personal MenuN
============================================================================
<ctrl-[>:<all : q = peek $C54 : oa-q : esc>!@
{get current file number and leave file use BA-ESC}@
-----------9
R:<all : oa-q : print q : rtn>! return to file9
these macros are used by other macros below also.O
-----------------------------------------------------------------------------
A:<all><oa-Q esc rtn rtn>! add files to Desktop from anywhere in AW
I<ctrl-A>:<all><esc : rtn : down : rtn : up : rtn : cell : rtn {save path O
Mname}: down : rtn : x = key : print chr$ x : if x < 55 then goto ba-_ : else '
if x > 54 then : input : rtn : sa-_>!
L<ba-_>:<all : input : rtn : rtn :{select new drive} input : rtn {select new K
Ifile}: esc : rtn : down : rtn : up : rtn : oa-y : sa-0 : rtn {reset path '
name}: oa-q>1<up>! original directoryN
LFor this macro to work properly choose drive or directory by number instead
of using the arrows.
-----------------------------------------------------------------------------+
Catalog a disk.P
N Stops to let you choose a drive or directory, catalogs same then returns you
to the file you left.
JC:<all : q = peek $c54 : sa-ctrl-[ : rtn>2<rtn><msg ' CHOOSE A DRIVE OR N
LPDODOS DIRECTORY by PRESSING A NUMBER THEN PRESS RETURN '><x = key : print M
Kchr$ x : if x < 55 then input : rtn : sa-~ : else if x > 54 then : input : =
rtn : input : rtn : sa-~>! Catalog drive, return to file.
~:<all : esc>5<rtn>2<rtn : input : sa-r>! routine for above
-----------------------------------------------------------------------------?
Save a file with reminder to rename file
OS:<all><msg ' Have you changed the file name??? If not do so now! M
'><oa-n><input><rtn><oa-S>! reminder to rename file before saving
-----------------------------------------------------------------------------)
Save a file.G
EReminds you to rename the file, lets you choose a drive or type in a H
Fdirectory, saves the file, returns you to file you left and restores M
Koriginal directory if thats where you were at the beginning. Does not save ;
orignal "drive" just a Prodos directory will be restored.
L<Ctrl-S>:<all><msg ' Have you changed the file name??? If not do O
Mso now! '><oa-n : input : rtn : sa-ctrl-[ : rtn : down : rtn : up L
J: rtn : cell : rtn : down : rtn : x = key : print chr$ x : if x < 55 then 9
goto sa-- : else if x > 54 then : input : rtn : sa-->!
N<sa-->:<awp : input : rtn : rtn : sa-r : oa-s {save file}: esc : rtn : down : O
Mrtn : up : rtn : sa-0 : rtn :{reset path name}sa-r>! save file to another 1
disk or directory, return to original directoryN
LFor this macro to work properly choose drive or directory by number instead
of using the arrows.O
-----------------------------------------------------------------------------P
N<ba-rtn>:<all><oa-tab : oa-tab : oa-tab : oa-tab : oa-tab : oa-tab : oa-tab : J
Hoa-tab : oa-tab : oa-tab : oa-tab : oa-tab : oa-tab : oa-tab : oa-tab : ,
oa-tab : oa-tab : oa-tab : oa-tab : down>!-
A typewriter like "return"
-----------------------------------------------------------------------------?
<ba-q>:<all $0 = "QuickSpell" : oa-esc : find : wait : stop>!@
Use Spell checker (must have Beagle Bros pgrm)
-----------------------------------------------------------------------------8
Backup file on desktop to disk drive
OB:<all : q = peek $c54 : oa-n><msg ' ** HAVE YOU RENAMED THE FILE??? ** P
NPRESS RETURN IF FINE ** '><input : rtn : oa-q : esc : rtn>2<rtn : up : rtn : J
Hinsert : oa-e>/Da1{put the name of your floppy volume, must be the same O
Mamount of letters as the HD}<rtn : sa-r : oa-s : oa-q : esc : rtn>2<rtn : up P
N: rtn : insert : oa-e>/HD1<{put the name of your hard drive here}rtn : sa-r : O
Mmsg ' ***** FILE SAVED ***** PRESS RETURN ***** ' : input :
key : msg " ">!
A method for Hard Drive users.O
MThis macro will enable you to save a file to a floppy set up the same as the P
NHard Drive yet keep the path set for the Hard Drive. Must have Filemaster by
Beagle Brothers.
-----------------------------------------------------------------------------
Thomas J. Scott